home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / Cup Of Boolean (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  670b  |  21 lines
  1. 0 dim boolean$(1):boolean$(0)="false":boolean$(1)="true"
  2. 1 rv$=chr$(18):ro$=chr$(146)
  3. 2 printchr$(147);:input"enter your name";n$:input"enter your age";a
  4. 3 print:input"enter another name";n1$:input"enter another age";a1
  5. 4 rem
  6. 5 rem line 9 assigns a boolean value
  7. 6 rem of zero for false or one for
  8. 7 rem true to the variable nameboolean
  9. 8 rem
  10. 9 nameboolean=abs(n$=n1$)
  11. 10 rem
  12. 11 rem line 15 asigns a boolean value
  13. 12 rem of zero for false or one for
  14. 13 rem true to the variable ageboolean
  15. 14 rem
  16. 15 ageboolean=abs(a=a1)
  17. 16 print:print"true or false?":printrv$;n$;ro$;" is the same as ";rv$;n1$
  18. 17 print boolean$(nameboolean)
  19. 18 print:print"true or false?":printrv$;a;ro$;" is the same as ";rv$;a1
  20. 19 print boolean$(ageboolean)
  21.